home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / prtfrm51.zip / FRMSRC.ZIP / FDEMO17.PAS < prev    next >
Pascal/Delphi Source File  |  1996-06-20  |  2KB  |  91 lines
  1. unit Fdemo17;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, PrnWin, ExtCtrls, StdCtrls, Buttons, Vruler, HRuler;
  8.  
  9. type
  10.   TForm17 = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Label3: TLabel;
  14.     Edit1: TEdit;
  15.     Shape1: TShape;
  16.     Label4: TLabel;
  17.     Label5: TLabel;
  18.     Edit2: TEdit;
  19.     Shape2: TShape;
  20.     Edit3: TEdit;
  21.     Shape3: TShape;
  22.     Edit4: TEdit;
  23.     Edit5: TEdit;
  24.     Edit6: TEdit;
  25.     Edit7: TEdit;
  26.     Edit8: TEdit;
  27.     Edit9: TEdit;
  28.     Edit10: TEdit;
  29.     Shape10: TShape;
  30.     Label6: TLabel;
  31.     Shape11: TShape;
  32.     Label7: TLabel;
  33.     Shape12: TShape;
  34.     Label8: TLabel;
  35.     Shape13: TShape;
  36.     Edit11: TEdit;
  37.     Edit12: TEdit;
  38.     Edit13: TEdit;
  39.     Edit14: TEdit;
  40.     Edit15: TEdit;
  41.     Label9: TLabel;
  42.     Edit16: TEdit;
  43.     Edit17: TEdit;
  44.     Edit18: TEdit;
  45.     Edit19: TEdit;
  46.     Edit20: TEdit;
  47.     Edit21: TEdit;
  48.     Edit22: TEdit;
  49.     Edit23: TEdit;
  50.     Edit24: TEdit;
  51.     Edit25: TEdit;
  52.     Edit26: TEdit;
  53.     Edit27: TEdit;
  54.     Memo1: TMemo;
  55.     PrintWin1: TPrintWin;
  56.     View: TBitBtn;
  57.     Cancel: TBitBtn;
  58.     Memo2: TMemo;
  59.     procedure ViewClick(Sender: TObject);
  60.     procedure FormActivate(Sender: TObject);
  61.   private
  62.     { Private declarations }
  63.   public
  64.     { Public declarations }
  65.   end;
  66.  
  67. var
  68.   Form17: TForm17;
  69.  
  70. implementation
  71.  
  72. {$R *.DFM}
  73.  
  74. procedure TForm17.ViewClick(Sender: TObject);
  75. begin
  76.   PrintWin1.BeginPrint;
  77.  
  78. {  PrintWin1.DrawWindowInRect( 1,1,7,9, Self); }
  79.   PrintWin1.DrawWindowAt( 1,1, Self);
  80.   PrintWin1.EndPrint;
  81. end;
  82.  
  83. procedure TForm17.FormActivate(Sender: TObject);
  84. begin
  85.     VertScrollBar.Position := 0;
  86.     HorzScrollBar.Position := 0;
  87.  
  88. end;
  89.  
  90. end.
  91.